module Amodule
implicit none
integer::a1
real::a2(10)

contains
subroutine B()
a2=1
write(*,*)"B"
end subroutine B

end module Amodule


program testinterp2
!use mod_interp2,only:init_interp2,interp2
use Amodule
implicit none
a1=10
a2=2

call B

volatile


end program